home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / program / multlang.zip / DTC.PAS < prev    next >
Pascal/Delphi Source File  |  1995-12-14  |  1KB  |  54 lines

  1. unit Dtc;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, Mask, SysUtils, Mcombbox, MultLang, ExtCtrls, Dialogs;
  7.  
  8. type
  9.   TDTCDlg = class(TForm)
  10.     Label1: TLabel;
  11.     Label3: TLabel;
  12.     LabelLongDate: TLabel;
  13.     LabelLongTime: TLabel;
  14.     MultLang1: TMultLang;
  15.     Label2: TLabel;
  16.     LabelCurrency: TLabel;
  17.     Label4: TLabel;
  18.     Label5: TLabel;
  19.     Label6: TLabel;
  20.     Bevel1: TBevel;
  21.     Bevel2: TBevel;
  22.     procedure MultLang1Translated(Sender: TObject; LanguageName: String;
  23.       Successful: Boolean);
  24.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   DTCDlg: TDTCDlg;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TDTCDlg.MultLang1Translated(Sender: TObject;
  39.   LanguageName: String; Successful: Boolean);
  40. var AValue:Extended;
  41. begin
  42.   LabelLongTime.Caption:=FormatDateTime('tt', Now);
  43.   LabelLongDate.Caption:=FormatDateTime('dddddd', Now);
  44.   AValue:=1234567.50;
  45.   LabelCurrency.Caption:=Format('%m', [AValue]);
  46. end;
  47.  
  48. procedure TDTCDlg.FormClose(Sender: TObject; var Action: TCloseAction);
  49. begin
  50.   Action:=caFree;
  51. end;
  52.  
  53. end.
  54.